home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 October / PCWorld_2006-10_cd.bin / domacnost a kancelar / winorganizer / WinOrg.exe / PluginsAndCOM / Plugins / Demo / fDocProp.pas < prev    next >
Pascal/Delphi Source File  |  2005-07-06  |  2KB  |  75 lines
  1. unit fDocProp;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ComObj, ActiveX, ExtCtrls;
  8.  
  9. type
  10.   TfrmDocProperties = class(TForm)
  11.     Memo1: TMemo;
  12.     Panel1: TPanel;
  13.     Button1: TButton;
  14.   private
  15.     { Private declarations }
  16.   public
  17.     { Public declarations }
  18.     class procedure Execute;
  19.   end;
  20.  
  21. var
  22.   frmDocProperties: TfrmDocProperties;
  23.  
  24.  
  25. implementation
  26.  
  27. {$R *.DFM}
  28.  
  29. { TfrmDocProperties }
  30.  
  31. class procedure TfrmDocProperties.Execute;
  32. var
  33.   WOrg, ActiveFile, ActiveDocument: Variant;
  34. begin
  35.   //CoInitialize(0);
  36.   WOrg := CreateOLEObject('WinOrganizer.App');
  37.   Application.Handle := WOrg.Handle;
  38.  
  39.   with TfrmDocProperties.Create(Application) do
  40.   try
  41.     Memo1.Lines.Add('GoldenSection WinOrganizer');
  42.     Memo1.Lines.Add(' ApiVersion: ' + String(WOrg.ApiVersion));
  43.     Memo1.Lines.Add(' AppVersion: ' + WOrg.AppVersion);
  44.     Memo1.Lines.Add(' AppBuild:   ' + String(WOrg.AppBuild));
  45.     Memo1.Lines.Add('');
  46.  
  47.     if WOrg.FileList.ActiveIndex < 0 then
  48.       Memo1.Lines.Add('No file selected')
  49.     else
  50.     begin
  51.       ActiveFile := WOrg.FileList.ActiveFile;
  52.       Memo1.Lines.Add('FileName:');
  53.       Memo1.Lines.Add(' ' + ActiveFile.FileName);
  54.       Memo1.Lines.Add('');
  55.  
  56.       ActiveDocument := ActiveFile.Selected;
  57.       Memo1.Lines.Add('Selected document');
  58.       if VarIsEmpty(ActiveDocument) then
  59.         Memo1.Lines.Add('No selected document')
  60.       else
  61.       begin
  62.         Memo1.Lines.Add(' Text: ' + ActiveDocument.Text);
  63.         Memo1.Lines.Add(' Ext:  ' + ActiveDocument.Ext);
  64.         Memo1.Lines.Add(' Guid: ' + ActiveDocument.Guid);
  65.       end;
  66.     end;
  67.  
  68.     ShowModal;
  69.   finally
  70.     Free;
  71.   end;
  72. end;
  73.  
  74. end.
  75.